home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / programs / amigabase / arexx / rx·dir < prev    next >
Text File  |  1994-11-16  |  291b  |  14 lines
  1. /* FILE REQUESTER */
  2.  
  3. OPTIONS RESULTS
  4. PARSE ARG modulname funcname
  5.  
  6. CALL ADDLIB("rexxreqtools.library", 0, -30, 0)
  7. dirname = rtfilerequest(,,"Wähle ein Directory ...", "Ok", "rtfi_flags = freqf_nofiles",)
  8.  
  9. ADDRESS "REXX_AB1"
  10.  
  11. Project modulname
  12. IF RESULTS > 1 THEN Function funcname dirname
  13.  
  14.